home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / badpassw.zip / R-PC0812.MRG < prev   
Text File  |  1992-08-13  |  737b  |  21 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce R-PC0812.BAS
  3. * RBBS-PC.BAS:  Date 6-20-1992  Size 147219 bytes
  4. * ------------[ Created 08-13-1992 00:10:09 ]------------
  5. * REPLACING old line(s) by new
  6. 643 IF NOT LogonPswdFailed THEN _
  7.        GOSUB 41070 : _
  8.        GOTO 644 _
  9.     ELSE IF ZExitToDoors THEN _
  10.             GOTO 644
  11.     GOSUB 12991
  12. * ------[ first line different ]------
  13.     CALL BufFile(ZHelpPath$+"BADPASSW"+ZHelpExtension$,WasX) : _     ' DA081201
  14.     ZOutTxt$ = "Forget password?  Leave comment to SysOp (Y,[N])"
  15.     GOSUB 12999
  16.     IF ZYes THEN _
  17.        OrigSubject$ = "FORGOTTEN PASSWORD" : _
  18.        GOSUB 1801
  19.     ZFirstName$ = ""
  20.     GOTO 902
  21.